/languagelevel where{ pop languagelevel 2 ge}{ false}ifelse{ /$spoolerNumPgs 10 string def /$spoolerPP{globaldict/$spoolerP 3 -1 roll put}bind def false $spoolerPP /$spoolerEchoString{ (%RBIPrintedPages: )print currentpagedevice/NumCopies 2 copy known { get dup null eq { pop #copies }if }{ pop pop #copies }ifelse $spoolerNumPgs cvs print (
)print }bind def /$spoolerOldEndpage currentpagedevice/EndPage get def 1 dict dup/EndPage { % num code -- boolean % /$spoolerCustomEndPage pop % our signature, if needed! currentpagedevice/Duplex known { %this device knows duplex currentpagedevice/Duplex get { % Duplex printing $spoolerP { % there a pending page and we are doing duplex % if there is a pending page AND we are now executing, then either the device % is going away OR we are being called by showpage or copypage % In either case we always are going to print a page $spoolerEchoString false $spoolerPP % there is no longer a pending page }{ % there is no pending page dup 2 ne % if we aren't deactivating the device and there is no pending page % then we are now creating a pending page { true $spoolerPP }if }ifelse }{ % Simplex printing dup 2 ne % if we aren't deactivating the device and there is no pending page % then we are going to print a page { $spoolerEchoString }if }ifelse }{ % Simplex printing dup 2 ne % if we aren't deactivating the device and there is no pending page % then we are going to print a page { $spoolerEchoString }if }ifelse % num code -- boolean $spoolerOldEndpage }bind put setpagedevice}if 1 dict dup /NumCopies 0 put setpagedevice%1 dict dup /Duplex true put setpagedevice /Times-Roman findfont 145 scalefont setfont200 200 moveto(Page 1)showshowpage %1 dict dup /Duplex true put setpagedevice /Times-Roman findfont 145 scalefont setfont200 200 moveto(Page 2)showshowpage/Times-Roman findfont 145 scalefont setfont200 200 moveto(Page 3)showshowpage /Times-Roman findfont 145 scalefont setfont200 200 moveto(Page 4)showshowpagepstack
